UVa/10127 - Ones/p10127.~dpr

   1 program p10127;\r
   2 \r
   3 {$APPTYPE CONSOLE}\r
   4 \r
   5 function procesar(n : integer) : integer;\r
   6 var\r
   7   tabla : Array[0..9] of integer;\r
   8   carry, multiplo, i, ultimaCifra : integer;\r
   9 begin\r
  10   result := 0;\r
  11   for i := 0 to 9 do\r
  12     tabla[i] := n * i;\r
  13   ultimaCifra := 1;\r
  14   carry := 0;\r
  15 \r
  16   repeat\r
  17     //2\r
  18     multiplo := 0;\r
  19     while tabla[multiplo] mod 10 <> ultimaCifra do\r
  20       multiplo := multiplo + 1;\r
  21     //3 y 5\r
  22     carry := (n * multiplo + carry) div 10;\r
  23     //4\r
  24     result := result + 1;\r
  25     //6\r
  26     i := carry;\r
  27     while (i mod 10 <> 1) do\r
  28       i := i + 1;\r
  29     ultimaCifra := i - carry;\r
  30   until carry = 0;\r
  31 \r
  32 end;\r
  33 \r
  34 var\r
  35   n : integer;\r
  36 begin\r
  37   while not EOF do\r
  38     begin\r
  39       readLn(n);\r
  40       writeLn(procesar(n));\r
  41     end;\r
  42 end.\r
  43